home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / N-O / New & Old.cpt / New and Old FileName / card_4399.txt < prev    next >
Text File  |  1987-10-31  |  2KB  |  78 lines
  1. -- card: 4399 from stack: in
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 3203
  5. -- name: 
  6.  
  7.  
  8. -- part 1 (field)
  9. -- low flags: 01
  10. -- high flags: 0000
  11. -- rect: left=126 top=54 right=280 bottom=453
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 0
  15. -- font id: 3
  16. -- text size: 14
  17. -- style flags: 8192
  18. -- line height: 18
  19. -- part name: 
  20.  
  21.  
  22. -- part 2 (field)
  23. -- low flags: 81
  24. -- high flags: 2004
  25. -- rect: left=234 top=86 right=138 bottom=404
  26. -- title width / last selected line: 0
  27. -- icon id / first selected line: 0 / 0
  28. -- text alignment: 0
  29. -- font id: 3
  30. -- text size: 9
  31. -- style flags: 0
  32. -- line height: 12
  33. -- part name: Margin Note
  34. ----- HyperTalk script -----
  35. on mouseUp
  36.   hide the target
  37. end mouseUp
  38.  
  39.  
  40. -- part 3 (button)
  41. -- low flags: 00
  42. -- high flags: 2000
  43. -- rect: left=215 top=124 right=148 bottom=242
  44. -- title width / last selected line: 0
  45. -- icon id / first selected line: 16692 / 16692
  46. -- text alignment: 1
  47. -- font id: 0
  48. -- text size: 12
  49. -- style flags: 0
  50. -- line height: 16
  51. -- part name: Margin Note
  52. ----- HyperTalk script -----
  53. on mouseUp
  54.   show card field "Margin Note"
  55. end mouseUp
  56.  
  57.  
  58.  
  59. -- part contents for background part 6
  60. ----- text -----
  61. 2 of 8
  62.  
  63. -- part contents for card part 1
  64. ----- text -----
  65. This stack contains two simple XFunctions to facilitate interaction with disk files.  
  66.  
  67. The first, Filename, is a simple rewrite of the Steve Maller's ¬†¬†XFunction of the same name.  Filename allows the HyperTalk script writer to query the user for the name of an existing file.  
  68.  
  69. The second, NewFilename, allows the script writer to query the user for the name of a new file.
  70.  
  71.  
  72.  
  73. -- part contents for card part 2
  74. ----- text -----
  75. Steve Maller
  76. Apple Computer Training Support
  77. AppleLink: MALLER1
  78.